home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00203.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  907 b   |  25 lines
  1. on mouseUp me
  2.   global coolhillsr, coolhillsg, coolhillsb, iconfade
  3.   showit(36, 38)
  4.   set the blend of sprite 53 to 100
  5.   set the blend of sprite 54 to 50
  6.   repeat with iconfade = 47 to 52
  7.     set the blend of sprite iconfade to 50
  8.   end repeat
  9.   set the memberNum of sprite 36 to 19
  10.   sprite(53).color = rgb(coolhillsr, coolhillsg, coolhillsb)
  11.   sprite(41).color = rgb(coolhillsr - 80, coolhillsg - 80, coolhillsb - 80)
  12.   sprite(42).color = rgb(coolhillsr - 40, coolhillsg - 40, coolhillsb - 40)
  13.   sprite(43).color = rgb(coolhillsr, coolhillsg, coolhillsb)
  14.   sprite(44).color = rgb(coolhillsr, coolhillsg, coolhillsb)
  15.   if coolhillsg > 0 then
  16.     set the locH of sprite 38 to 100 - (coolhillsg / 2.54999999999999982) + 439
  17.   else
  18.     if coolhillsr > 0 then
  19.       set the locH of sprite 38 to (coolhillsr / 2.54999999999999982) + 539
  20.     else
  21.       set the locH of sprite 38 to 539
  22.     end if
  23.   end if
  24. end
  25.